(Info-following-node-name): New function.

diff --git a/lisp/info.el b/lisp/info.el
index 28869c4f469072db08cbcfda58ccd6dbe7ea255b..e11fdbf16ad38c1f3d20a1a128f876b00fd8832d 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1441,6 +1441,11 @@ End of submatch 0, 1, and 3 are the same, so you can safely concat."
          "[" (or allowedchars "^,\t\n") " ]" ;The last char can't be a space.
          "\\|\\)\\)"))                       ;Allow empty node names.
 
+;;; For compatibility; other files have used this name.
+(defun Info-following-node-name ()
+  (and (looking-at (Info-following-node-name-re))
+       (match-string 1)))
+
 (defun Info-next ()
   "Go to the next node of this node."
   (interactive)